home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 4 / 64er_Magazin_Sonderheft_04_86-04_1986_Markt__Technik_de_Disk_1_of_2_Side_A.d64 / listing 09.d (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  266b  |  14 lines
  1. 10 gosub10000:rem tabelle deffinieren
  2. 20 print"[147]tabelle vor dem sortieren:
  3. 30 [129]i[178]1[164]sz
  4. 40 :[153]i,d$(i)
  5. 50 [130]i
  6. 60 [153]"[return]":[151]198,0:[146]198,1
  7. 65 [153]"bitte warten!"
  8. 70 [141]30000:[143] d$(1)-d$(sz) sortieren
  9. 80 [153]"loadtabelle nach dem sortieren:
  10. 90 fori=1tosz
  11. 100 :printi,d$(i)
  12. 110 nexti
  13. 120 end
  14.